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INTRODUCTION 


OVERVIEW 


EXTENDED FIG-FORTH fully implements the standard FORTH, as defined in the Forth Interest 


Group’s (fig) Implementation Guide. It roughly follows the 6502 Rev, 1.1 FORTH sources 


as supplied by the Forth Interest Group (FORTH INTEREST GROUP, P.O. Box 1105, San Carlos, 


CA 94070). Many changes were incorporated in adapting the sources to the ATARI Home 
Computer, but the definitions, operation, and user interfaces were implemented exactly as 
described in the Implementation Guide. Many additional definitions have been added, 
including extended double-precision words such as ZDUP, 2SWAP, D@, and D!. Further, the 
standard FORTH Editor, and a complete Assembler for the 6502 are included, as well asa 
set of ATARI Color/Graphic definitions, ATARI OS definitions, and a set of ATARI 
Floating-point definitions. One new definition, SAVE, (and CSAVE) allows a 
self—-booting image of FORTH to be made on a diskette or cassette that will include new 
definitions you add} this feature allows application packages to be produced in volume. 
Definitions not implemented are DLIST, MON, and TASK. The complete set of ATARI 
Screen-Editor capabilities is implemented, making editing and changing FORTH programs 
simple and straightforward, 


These instructions assume you are already familiar with FORTH. However, the manual does 
contain two bibliographies, one for works pertaining to FORTH and a more general one. 
There is also a two-page FORTH HANDY REFERENCE summary in the back. 


If you’re a beginning FORTH programmer, an excellent book to help you get started is 
Starting FORTH, by Leo Brodie, written at FORTH, Inc., and published by Prentice-Hall. 
There are some differences between FORTH Inc.’s "PolyForth” and fig-FORTH: the word 
‘S is SP@ in fig-FORTH; the word CREATE cannot be used to create an array name 
directly, as shown in the book; and the only character that defines a double-precsion 
value in fig-FORTH is the decimal point, whereas PolyForth allows several others, and 
there are other differences between PolyForth and figq-FORTH. ae 


REQUIRED ACCESSORIES 


Cassette version 


iéK RAM 
ATARI 410 Program Recorder 


(Note. FORTH as a computer language isn’t very workable in a cassette-only 
environment. But applications software using FORTH can be put onto a self—booting 
cassette if desired.) 


Diskette version 


16K RAM 
ATARI $10 Disk Drive 


OPTIONAL ACCESSORIES 


-j-— 


All ATARI peripherals and accessories 
(Note. Extended fig-FORTH will work with any ATARI printer using two new 
definitions, PON , and POFF which turn the printer on and off. The printer does 
not print the prompts as they occur on the screen; allowing very clean printouts.) 
CONTACTING THE AUTHOR 
Users wishing to contact the author about Extended fig-FORTH may write to him at! 


206 Northside Road 
Bellevue, WA 98004 


or call him at: 


206/453-9698 | 


GETTING STARTED 


DISKETTE VERSION 
1, Remove any cartridge from the (Left Cartridge) slot of your computer: 


2, Place the Extended fig-FORTH diskette in your disk drive and turn on the drive and the 
computer. 


3. The program will load into memory and the prompt "fig-FORTH 1.1" will display when the 
load is complete. Press the RETURN key to display the standard FORTH prompt " ok *. 


4. The Editor, Assembler, Debug, OS, Color/Graphics, and Floating-point packages included 
with Extended fig-FORTH must be loaded in after booting-up the disk. Instructions for 
loading and using each package follow. 


Je After loading in whichever packages you need, you can make a new copy of FORTH that 
includes your loaded packages by inserting a formatted diskette into disk drive 1 and 
typing "SAVE". A self-booting copy will then be written to the new diskette. 


6. Now replace the original diskette, type " 14 LIST MARK 19 LIST MARK ", and press the 
RETURN key. Two screens of error messages will be listed and saved internally. 


7 Change diskettes once again and type ° FLUSH ”" and the error messages will be written 
to your new diskette, You now have a clean diskette for your program development. 


§, Store the original FORTH diskette in its folder and put it in anice safe place. Note 
that you may make a complete copy of your original diskette using the DISKCOPY routine 
described later. This will copy the whole diskette, not just the FORTH and error 
messages. 


CASSETTE VERSION ae 
1, Remove any cartridge from the (Left Cartridge) slot of your computer. 


Z. Turn off the computer and all other peripheral devices. Insert the cassette into the 
: program recorder. 


3, Hold down the START key on the computer and turn on the computer. The computer should 
beep. 


4, Press the PLAY button on the program recorder. 


S, Press the RETURN key on the computer and the cassette will load itself in. If the 
program successfully loads, you will see the prompt "fig-FORTH 1.1. 


4, SEE THE CASSETTE NOTES AT THE END OF THIS SECTION. 
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NOTES ON THIS IMPLEMENTATION 


Editor and Assembler options 


You have several options regarding the EDITOR and ASSEMBLER vocabularies: in addition to 
the standard EDITOR, a version of the FORTH Inc. Editor has been included. It may be 
loaded witha 69 LOAD command. Further, the Assembler written by Wm. Ragsdale is 


supplied (use the command 75 LOAD ), which is identical to the assembler used in the 
Installation Guide, 


16K RAM saidiakiasaae 


If you nave only 16K of RAM you will not be able to use some of the Color/Graphics 
higher-level graphics modes without interfering with the screen buffers. 


Cold starts with SYSTEM RESET key 


The SYSTEM-RESET key calls the "COLD" (cold-start) function directly, so any new word 
definitions that have not been SAVEd will be erased. This can be a handy feature while 
debugging: press the SYSTEM RESET key to erase all your old work and leave a clean copy. 
There is a negative side! if your program wanders off into never-never land, and you have 
to press SYSTEM RESET, you’ll lose all your new definitions unless you’ve been editing 

them into new screens. (Using the standard OS screen-editing functions excludes the use 
of the BREAK key for this alison The BREAK key is used to inform the nn to ignore 
the previous input string.) 


FORTH and DOS incompatability 


There is no compatability between FORTH diskettes and DOS (I or II) diskettes. You may 
read a DOS diskette with a FORTH program, but unless you know exactly what you're doing, 
writing to a DOS diskette will, in all probability, make the diskette unworkable froma 


DOS point of view. The only DOS function applicable to FORTH is that FORTH expects 
DOS-formatted diskettes. 


7-bit and 8-bit output 


The word “TYPE outputs only 7 bits to the screen or printer. If you want TYPE to 


output all S-bits (which includes inverse video characters), you can type in the 
following sequence: 


HEX FF %’ TYFE 14 + Ct! DECIMAL 


In fact, you can make up a couple of routines if you wish: 


HEX 
2 MODTYPE ‘ TYPE 14+ C! ¢ 
: 8-BITS FF MODTYFE ; 
: 7-BITS 7F MODTYFE } 
DECIMAL 


Then, to set your system to type out 7 bits, type 7-BITS, and for © bits, type S-BITS. 
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Further, you can use these routines in any other programs you wish, just as you would 
any other word definition. If you type VLIST with TYPE set to 8-BITS then the last 
character of each word will be in inverse video. The word EMIT always outputs all & 
bits in each byte. TYPE uses EMIT with a mask for 7 or & bits. 


ERROR Screens - | 


The ERROR screens are 13 and 14 instead of the standard 3 and 4, This is because the 
self—booting FORTH interpreter, if it is present on the diskette you’re using, occupies 
screens 0 through 7, with 6 screens available for larger versions. If your working 
diskette doesn’t have a bootable FORTH on it, you may use all screens numbered 0 through | 
89, Disk drive 2 screens are numbered 90 through 179. The second drive may also be 
accessed by the word DRi , which sets an offset into the drive addresses for 
automatically accessing the second drive. The word DRO accesses the first drive. 
Alternately, the blocks are nueer es 0-719 on the first drive, and 720-1439 on the second 
rave — 


Disk Blocks 


This is fig-FORTH, NOT FORTH-79! This means that disk blocks are 128 bytes long and not 
1K bytes long. Each screen is 8 blocks long, not 1 block long! A later version willbe — 
made available, someday, using the FORTH-79 standard, but Extended a ane uses the 


figq-FORTH standard. 
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DEFINITIONS 


[ave 


This word, when executed, saves a self—-booting copy of the RAM-resident FORTH program to 
disk drive 1, after setting up new parameters for COLD and FENCE. On booting ups 

all definitions will be protected by FENCE, and the FORTH vocabulary will be the 

current dictonary. This word uses (SAVE) described later. 


CSAVE —- 
This word saves a self-booting copy of the RAM-resident FORTH program to the cassette 
recorder. The computer will beep twice, indicating that you are to press both the PLAY 


and the RECORD buttons on the recorder, followed by pressing the RETURN key on the 
computer. — a | 


(SAVE) n--— 


This word writes n blocks to disk drive 1, starting at sector 0. This word should not 
be used by normal FORTH programs. 


-DISK addr n2 n3 flag —— n4 


This word performs the read/write on a disk, where addr is the starting RAM address, 
n2 is the diskette sector number (0-719), n3 is the drive number (1-4), and flag is 

1 for aread, and O for awrite. On return, n4 will contain a zero if everything 

went all right, or it will contain the DOS error number returned by DOS if an error 
occurred. It is not expected that the normal FORTH program will use this word. The 
usual disk’ I/O word used is R/W , which is documented in the Implementation Guide. 


Aaa Fe a aw 
This word places the binary value of character c on the top of the stack. 

BEEP — 
This word sounds the "beep” tone on the computer’s speaker. 


BOOT --—— 


When executed, this word causes a cold-boot of the computer exactly as if the power were 
turned off. 


(FMT) ni -—— n2Z 


This word formats disk drive ni and returns the DOS status byte upon completion in n2 

» This word is used by the word FORMAT in the OS definitions. No error checks are made 
and no warnings aregiven by this word. Those functions are performed by the FORMAT word, 
For more information, see the OS section in this manual. 


ok -— 


This word allows the Screen Editor (E%) to handle the standard FORTH prompt properly. The 
interpreter can “eat” the previous "ok" prompt with no other effect. It allows you to 

repeat the same input stream by a= lal cursor — IN a previous line and 
icine the RETURN ame le 


PON -— 


This word enables the printer. PFLAG is set to 1, and thereafter every character put to 
the screen will be echoes ¢ on the printer except the prompts. 


POFF —— 
This wend disables the printer. It sets PFLAG to zero. 
PFLAG —- addr 
This word is the printer-flag. See PON. 
GFLAG — addr. 
This word is the graphics-—mode, cursor-control flag. When GFLAG is oa to non-zero; 
FORTH will use the alternate cursor-address variables required by the Operating System to 


_ handle the text-window at the bottom of the screen. This variable is handled 
automatically by the various graphic commands in the Color/Graphics package. 


~ 


PROMPT -— 


This word was added to handle the extended complexities of excluding the prompt from the 
printer when PFLAG is non-zero, Basically it types "ok". 


Words for using the Assembler 
A series of words are defined for the ASSEMBLER: 
NEXT 


FUSH 
PUT 
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NOTES 


THE CASSETTE aii 


The cassette version of fig-FORTH contains the ASSEMBLER and DEBUG vocabularies already 
loaded. Because no diskette is used, the EDITOR vacabulary is essentially useless. 
However, printouts of the EDITOR, OS, and COLOR/GRAPHICS screens are included so that you 
may type them in if you wish. The cassette version is primarily for use as an 

introduction to the FORTH language, and not as a software development system. 

Nevertheless, the CSAVE feature allows you to develop permanent versions of your FORTH 
programs. See the following section for how to erase old definitions. Note that error 
messages in the cassette version type only a number. Refer to the printout of the error 
message screens for their meaning. “oe error numbers start wach at screen 14, | 
_itinel (error 1). : a : ee . | 


MODIFYING THE DICTIONARY 


To erase a definition in your FORTH dictionary that is locked in you get an “in 

- protected dictionary” message when you try to FORGET a definition) do the following: 

using VLIST, find the name of the first word that you want to keep, call it XXX, and 

type ‘XXX FENCE ! CRETURID. This will set the dictionary protection to your XXX word. 
Then you may type FORGET name <RETURND, where "name" is the name of the word you 
wish deleted. Note that all words above “name" are deleted. You can actually 

instruct FORTH to forget everything, so be careful. If you make an error in a new 

definition that FORTH rejects for one reason or another, you may find that you cannot 
FORGET the new definition, and, in fact, only VLIST seems able to find it at all! In such 
cases, type the word SMUDGE and you'll be able to FORGET the word. By the way, you can 
interrupt VLIST anywhere you want by pressing any key except BREAK while it is typing out 
the dictionary. 


“ "Co FORTH and conquer" — 


"May the FORTH be with you” 


-f— 
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INTRODUCTION 


The ASSEMBLER vocabulary included in Extended fig-FORTH is a full-featured 6502 
assembler, capable of assembling the range of assembler op-codes. It is similar to W. 
Ragsdale’s assembler used in the fig Installation Manual. To load it, type! 


39 LOAD 


As is usual in any FORTH product, the notation used in this assembler is in Reverse 
Polish Notation (RPN). This brief outline assumes you know assembly language programming — 
very well, particularly in regard to the 6502, The RPN notation will seem very awkward at 
first, but it allows the full power of FORTH to be brought to bear in an assembler-level 

routine. The op-codes are very similar to standard 6502 op-codes, except that every one 

ends with a comma, a FORTH convention for assembler-level codes. Some examples will help 
describe the assemblers 


LDA 123 is written as i123 LDA, 


Similarly, — 

STA 3EBCO is SECO LDA, " 

LDA 33,X 1s 33 »»X LDA, 

AND (45,X) is 45 X) AND, 

STA (74)+Y 185 9 = 74 DIY STA,» 

LDA 3374,Y 15 3374 ,Y LDA; 

LDX #/7F 1s JF +# LDX, or $¢ 7/7F LDA, 


The current BASE value (radix) of FORTH determines whether the assembler creates hex, 


. decimal, or octal values (or any radix, for that matter). 


Non-standard op-codes are the A-register shifts only, which are expressed as: 

ROL.A,» 
instead of the standard: 

ROL A 

and the op-code for an indirect JMP instruction, which is: 

momom JIMPC), 
instead of: 

JMP (Cnmmn). 
Loop constructs use the words BEGIN, and END, (note the commas) and an alias for the 
latter UNTIL, . The END, is preceeded by a 0= or O= NOT construct to determine 
loop termination. The termination test actually assembles as a BNE or BEQ instruction, as 


in the following example: 


0 »»X LDY, BEGIN, INY » O= END, NEXT JMF,» 
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The above routine increments the Y-Register until it is zero and exits to a routine named 
NEXT. It will be assembled as; 


LDY 0,X 
INY | 
ENE x1 


JMP NEXT 


The Branch instructions have been integrated into a generalized IF construct so that 
they may be readily incorporated into an unlabeled branch capability. The syntax is} 


IF > : .¢ a <9 ee oo ¢ THEN, 


or 
LF x » eee oo es ENDIF , 


where xx is the last two letters of the standard 6502 branch instructions CMFEQ, 

IFNE, IFMI, etc.). The test will be made on the Status Register as appropriate to the 
sense of the conditional branch, and if the test is TRUE, the code enclosed between the 
IFxx, and the THEN, or ENDIF, will be executed; otherwise, the enclosed code will be 
skipped. The operation of the construct is almost identical to the IF ».. THEN at the 
higher-level FORTH definitions, except that nothing is popped off the stack by the IFxx, 
words. Instead, a Branch instruction is assembled. 


LEGAL EXITS 


There are only a few legal exits from assembly language FORTH routines to the main FORTH 
inner interpreter. These addresses are predefined in the main FORTH dictionary and need 

no further definition by the assembly language itself. These returns use a cccc 

JMP, sequence, as shown in later examples. The legal exits are. 


NEXT 
This is the normal return. It takes no stack action. 


PUT 


This places the A-Register and the first item on the hardware stack on the top of 
the stack. That is, itdoesa 1 ,X STA, PLA, O ,X STA, NEXT JUMP, 
sequence. This action overwrites whatever was previously on the top of the stack. 


PUSH 


This pushes down the stack and does a PUT . This action adds one item to the 
stack. : 


POP 


This performs the DROP function. 
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POPTWO 
This performs DROP DROF. 
PUSHOA 


This first pushes the A-Register, followed by a zero. Essentially, it pushes one 
byte, the A-Register, onto the stack, adding a 16-bit word to the stack with the one 
byte in the lower half. 


BINARY 


This word takes two words off the stack and replacea=s them with one word, The best 
example is the add word + . This routine does a DROP followed by a PUT , which 
overwrites the old top of the stack. : 


CALLING THE ASSEMBLER > 


The word CODE is used to call the assembler automatically when defining a new assembly 
level routine. The character string following CODE will become anew FORTH word having 
directly executable assembly level code. Two examples follow that do the same 
thing—-they multiply the top of the stack by two, using a single left shift across the 

two bytes that are the top of the stack: 


CODE 2x oO ,X ASL, 1 »X ROL,  ##NEXT JUMP, 
CODE x2 0 ,X LDA, ASL-A,. FHA, 1 4X LDA,  ROL.A, 
PUT JMP, 


The first routine shifts the actual memory locations of the top of the stack. This 
procedure is quite short and very fast. The second routine is the more universal 
method, in that the arguments are first loaded to the A-Register and later stored. 
Notice that the low order byte is pushed to the hardware stack and the high-order byte is 
left in the A-Register on the return to PUT. The second example shows how words are 
retrieved from the stack and how a return is made. To reach the second word down on the 
stack, you would use 2 ,X LDA, to access the low byte and 3 ,X LDA, to access the 
high byte, and so on. You can increment the stack pointer (push the stack) with a DEX, 
DEX, sequences, and pop the stack with an INX, INX, pair. In fact, the DROP word 
does asimple INX, INX, NEXT JMP, sequence. 


If your routines need the X-Register for any reason, you must save it off someplace. A 
very convenient place called XSAVE is provided. Doa XSAVE STX, later followed by a 
XSAVE LDX, instruction. 


Several other addresses are made available as “hooks” into the FORTH system. These are 
predefined words you use at your own risk (you'd better study up a bit before doing so), 
but some routines, such as in the assembler itself, need these addresses. 


This is the Intepreter Instruction Pointer, which points to the next word to be 
executed, 


ee 


This is the actual execution address of the current word being executed. 


— This is a convenient eight-byte (4-word) save area where you may save your words and 
bytes by storing them in N+O , N+1 , N+2 .». N+7 . You can use the following 
sequence to call an internal routine called SETUP, #2LDA, SETUP JSR, if you 
want to copy the top two stack words into N+0 ... N+3, low bytes first. Use # 3 for 
. the top three stack words, and so on. This does not change the hima itself; it only 
| =o copies of however many words you want. .o 


On oe to your routine, the Y-Register will contain a zero. This fact can be handy for 
Clearing out bytes or i alll For —" _— can clear the sli aad with a simple 
one instruction. 7 


Using the assembler, like in almost any assembly level programming, is —— with fire; 
and you'll probably get burned from time. to time. But, one of the delights of FORTH is 
that you can simply re-boot and try again. Careful examination of your code will 
probably clear up your problems. 


Note. A good descripton of Wm. Ragsdale’s assembler is in Dr. Dobb’s Journal, Vol. 
b, No. 9 (Sept. 81), This assembler is quite similar on the surface. Internally, they 
are totally different approaches to solving the same problem using FORTH. Reading 

Ragsdale’s code and reading the code for this assembler could be very instructive in the 
area of assembly level FORTH programming. 
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COLOR/GRAPHICS (C& SOUND) 


INTRODUCTION 


You must have already loaded the ASSEMBLER Vocabulary into your FORTH dictionary before 
the COLOR/GRAPHICS definitions will LOAD si al Once you have the ASSEMBLER loaded, 


type: 
90 LOAD 


A small demo program will draw a box and FIL it in Graphics Mode 5 when os enter the 
word ariel al 


59 LOAD 
FROX 


Type 3/7 LIST to examine the program itself. 
NOTE. As in BASIC, a color value of zero is used to erase a point, Also, note that in 
Graphics Mode 8, there are only two color values: zero or one. 

DEFINITIONS 


The following words have been defined for use with Extended fig-FORTH in programming 
color graphics. Most resemble the commands used in ATARI BASIC. 


SETCOLOR nil n2n3--—— 


Color register ni (0.4) is set to color n2 (0..15) at luminance n3 (0..7). This 
word is very similar to ATARI BASIC’s SETCOLOR command. 


SE. nin2n3-— 
This is a synonym for SETCOLOR using an the abbreviation used in ATARI BASIC. 
GR. na-- 


This word selects Graphics Mode n where n is defined as in ATARI BASIC’s "GRAPHICS 
n" command. (plus modes 9, 10, and 11). 


XGR -—- 

This word allows easy exit from Graphics Modes 1-8. It essentially does a “OGR”. 
POS ni nzZz-—— 

This word sets the X (n1) and Y (n2) coordinates for the next point to be plotted. 

It does not plot anything by itself. It is primarily used in the FIL word 

definition. 
PLOT ninZzn3s-—- 


This word uses the color value given by nl _ to plot the point at position X (n2), 
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Y (n3). 
DRAW ni n2 n3 --—— 


This word draws a line from the sast lotted agint: using mel value ni to the 
| —* x — Yin3s)e 


FIL n--— 


This ward Fills the enclosed area just drawn with color value n. The ATARI BASIC 
FILL command is somewhat awkward to use, Careful heal of the Ata BASIC 
Reference Manual 1s recommended. 


Go —ar" 


In Graphics Modes 1 or 2 this word performs the way the word ." does in text made. 
The character string cece will be compiled if in compiler mode or typed out if in. 
sine iaiaaal mode. The oe word may be used to position the output. 


SOUND 


The sound command definition is practically identical to ATARI BASIC’s SOUND definition. 
But another word not present in ATARI BASIC lets you alter the "filter" values described 
in the HARDWARE MANUAL as AUDCTL. The word FILTER! sets this control register. 


SOUND ni n2 nS n4 --- 
This word is used as: chan freq dist vol SOUND . niais the channel number 
(0-3) nZ is the frequency, as described in the ATART BASIC Reference Manual) 
n3 is the distortion control (an even number between O and 14); and n4 is the 
volume (0-15). 


FILTER! ni — | oa ae 
This word stores a value between 0 and 255 into audio control register AUDCTL. The 
default condition is 0 FILTER!. Using this control is not at all straightforward, 


Please refer to the HARDWARE MANUAL if you wish to alter the contents of this 
control register. Or, you can try a few different values and see what happens! 
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DEBUG 


INTRODUCTION 
Load the DEBUG package by typing: 
21 LOAD 
The package includes several very useful features for testing and debugging your FORTH 
programs. | 
Each function is described below, in standard FORTH terminology. 
DEFINITIONS 
This word types out the current BASE value (radix) without changing it. It overcomes 
an intrinsic difficulty in typing only BASE? , which always returns the value 
10 no matter what the current radix is. (10 is the right answer, always.) This 
word types out the value Base 10, so that if your current base is hex, B? will 
type out 16. | 
CDUMP addr n -—- 
This word types out n bytes in character format, starting at addr. For example, to 


display the characters in any disk block, say, sector 34, type 34 BLOCK 128 
CDUMP . 


DUMP addrn--- 


This word types out n bytes in numerical format using the current value of BASE. 
You can go from a decimal dump to a hex dump by typing HEX first (and vice-versa). 


DECOMP cere -—- 


This word decompiles the previously entered, colon definition cccc for debugging 
purposes. Use this word cautiously. It is defined for the purpose of decompiling 
colon definitions only, and it can go off to never-never land if you try to 

decompile things like dictionary headers (e.9.. FORTH), words terminated by ;CODE 
or words whose definitions do not endin }$,suchas ABORT . Most non-colon 
definitions will cause the message " Primitive " to display if you try to decompile 
them. Try DECOMP VLIST and DECOMP @ to see the different results. 


rece === 


This word types out the number of free bytes of dictionary space left. NOTE that 
this number will vary depending on the current graphics mode. 


He n- 


This word outputs the top of the stack in hexadecimal, no matter what the current 
value of BASE is. Itis similar to U. (unsigned type-ovut). 
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This word prints out the contents of the stack in unsigned form using the current 
BASE (radix), It doesn’t change the contents of the stack in any way. This is 
easily the most useful debugging tool. dein, ‘sinadlaglh i ceamteciaiile you will probably 


use it hai ihe rian dd 


— 


DISKCOPY 


The diskette copying routine supplied with this = pernaye is minimal. Load it into memory 
by typing 


36 LOAD 


To ae the copy iain type nes —_ niall will be enn for what to do. 


This routine requires 32K of RAM to eee i and uses one iton to copy 90 sectors ata 
time. You may interrupt the copy routine by pushing the SYSTEM RESET key when you think 


it has copied enough sectors for your application. Or, you may copy single FORTH 
screens, two at a time, by using the LIST and MARK words as described in the introduction. 
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EDITOR 


INTRODUCTION 


The Editor in Extended figq-FORTH is the Screen Editor described in the Forth Interest 
Group’s Installation Manual, complete and unchanged. It isn’t the most sophisticated 
editor around, and it has some quirks that take getting used to. For example, it’s 
difficult to insert spaces into a line of text. But the Editor is specifically designed 

to lieu with re ill ane at's: imi for ian purposes - 


To load the Editor into your nae put the ‘txtended ie liable diskette into drive 1 and 
types | 


27 LOAD 


Ignore any errors regarding duplicate names, To use the Editor, you nent first type” 
EDITOR to set the context to the Editor vocabulary. To edit a given screen, first type 
n anal to load the screen into sical | 


One new — has been added - the Editor vocabulary : MARK . This word will mark | _ 
every line in the current screen (the one you last used the LIST command with) as having 

been modified, so that when a subsequent FLUSH command is given, the whole screen will 

be written out. It is used primarily to update backup diskettes and to duplicate single 

screens onto other diskettes. 


: iti pe the word FLUSH to save your 
work, It is ; quite important to get into the habit of doing this. If you fail to do 
SO, So, and subsequently your program bombs out, you can lose the last screen you edited. 


COMMANDS 
WORD FORM DOES 
L L 


This word Lists the current screen. The current screen is changed by n 
LIST which will list out screen n and make it the current screen. 


T n T 
; This word Types out line n and puts the cursor at the beginning of 
that line. 
E neE 


This word Erases line n. 


D n D ; 


This word Deletes line n and moves up all following lines. Save the 
contents of the line in a buffer so that you can use an I command later, 
if desired. 
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CLEAR 


n P ccec 


This word Puts the character string cccc into line n and erases the 
previous contents, if any. Use this command to create new lines. The 
string cccc may be any combination of characters and spaces up to 64 
characters. | , | 


nl 
This word Inserts the buffer from the previous D command into a line 


created immediately above line n and then moves all following lines 
(including n) down one line. The last line is lost. 


F cece 
This word Finds character string cccc in the current screen starting 
_ from the current cursor position. 


This word Backs up the cursor over the word you just found using the F 
command. 
C cee 

This word inserts Character string cccc into the current line at the 
current cursor position. This is the primary character-entry command (see 

nM 
This word Moves the cursor n characters forward or backward (backward 
if n is negative). 

n§ 
This word Spreads the current screen at line n, creating a new line 
immediately preceeding line n and moving all following lines down one. 
The last line will be lost. 

X coce 


This word eXtracts the character string cccc and shortens up the line. 

This is the primary find-and-delete command. The X command uses the F 
command, which means that the string search will commence from the current 
cursor position. 


n CLEAR 
This word CLEARs screen n by completely filling it with blanks. It 


destroys any previous information on that screen. Note that an unused, 
unCLEARed screen will be filled with hearts, which is the ATARI null 
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character. CLEAR will replace the hearts with spaces, 
COPY nm COPY 


This word COPY: s screen n onto screen m.It destroys any old | 
a a on screen Mm. . | 


MARK MARK | 


This word MARKs the current screen as having been modified. A subsequent 
FLUSH command will cause the entire screen to be written out. Use it to 
copy a single screen to another diskette. : 


The best way to learn the Editor is to pick an arbitrary unused screen and use the LIST 
and CLEAR commands to erase it and make it the q™urrent screen. Then use the FP command 
to put several lines of text into the new screen. Then, try out the various commands, 


one at a time, until they become somewhat familiar. Use the command FLUSH if you want 
to keep the results of your work handy; veciiadiataialas| use the command EMPTY-BUFFERS to 


erase all traces oF — screen bahia aol 
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FLOATING-—-POLNT 


INTRODUCTION 


The floating-point package uses the ATARI floating-point routines in OS ROM, exactly as 
ATARI BASIC does. The routines aren’t very fast, but they are easily accessible and 
fairly complete (there are no transcendental functions except LOG and EXP), Most of the 
floating-point word definitions follow the conventions for SOLE precision words as far 
as spelling goes; ne —_ bea 5 easy to remember, -. = 


Before loading the ee package, first make sure that you have already loaded 
the ASSEMBLER. Then put in the master diskette and type: 


60 LOAD 
The floating-point — will be loaded into the current dictionary, 
All floating-point operations assume three-word variables (fn) with Few exceptions. The 
only real variant from standard FORTH nomenciature occurs in the definition of 
floating-point constants and variables (FCONSTANT and FVARIABLE) in that these operations 
expect a floating-point number to be on the stack already. Therefore, the syntax is a bit 
different from single-precision or double-preaision constants and variables. 
A single-precision variable would, for example, be written: 


1234 VARIABLE MYNUM 


whereas a floating-point variable would be written: 


FLOATING 1234 FVARKIABLE MYNUM 
To reduce typing, the word FLOATING has been given the synonym FP ; 
FF 1234 FVARIABLE MYNUM 


_In fact, the word FLOATING or FP should precede any floating « number if you wish that 
number to be placed on the stack in floating-point format. 


You may enter floating-point numbers in any standard Fortran "E" format: 


1.234 
-O00000001 
-7 -8945E-31 
9999999 


ra 


All the above numbers are legal floating-point numbers as long as they are preceeded by 
FP or FLOATING . The decimal point is optional for integer values. The package is easy to © 
use. Here’s an example of a square-root function definition: 


>; FSQRT FLOG FP 2.0 F/ FEXF ; 


The routine expects a floating-point value on the top of the stack (top three words), 
takes the natural log of the value, enters the floating-point value 2.0, divides the 
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numbers, and raises the result to the power "e". This is the standard "slow" square-root 
routine used in mathematics. : 


DEFINITIONS 
The following ¢ ities: deen - the utasdeens FORTH iain. « with the addition 
of the symbol fn (e.g., £1, £2), which represents a three-word floating-point number. 


FCONSTANT fi --—- cccc 
The character string cccc will be a new word, which will place the floating-point 
Sanetens #1 on the stack. sok is een re by: the word FLOATING or FP. 
FVARIABLE #1 === ‘CCcc 
The character string cccc will be a new word, which will return the address of the 
_ floating-point variable whose Aol value will be Fi. " 15 ~~ —. by = 


am word areniaeiraggpeed or bie a 
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This word duplicates the floating-point number on the _ oF the ‘stack. 
FDROP fl #2 —— fil 


this word drops the Floating-point number on the top of the stack. 


FSWAP fl f2 —- f2 fl — ; 


this word reverses the order (swap) of the top two floating-point numbers on the 
stack. 


FOVER f1 f2 —— f1 f2 fi 


This word copies the second floating-point number and places it on the top of the 
stack. 


FLOATING -—- coce -—— > fi 
This word converts the character string cccc to a floating-point number and places 
it on the top of the stack. cccc must be in valid Fortran-style, floating-point 


number representation, such as, 1.23 or .67E9 or -9.876E-21 or 5. There is no 
error check. If the string cccc is invalid, the value of fi will be undetermined. 


FP —— coe —>: fl 
This 1s a synonym for FLOATING, 


F@ addr -— fil 


This word loads the floating-point number whose address is on the top of the stack. 


F! f1 addr -—- 


This word stores the floating-point number at the address on the top of the stack. A 
total of 4 words will be dropped from the stack at the completion of F!. | 


This word types out the floating-point number on top of the stack. The output format 


will be identical to ATARI BASIC’s output format. The floating-point number will 
then be dropped from the stack. | 


F? addr — 
This word iin out the eabiecnnie’ number whose address i is on top of the stack, 
F+ #f1 f2 ——— 3 


This word adds the top t two o Floating-point numbers and _ the anda on the top 
ofthe stack, 


F- fi f2 — £3 : 


This word subtracts the floating-point number f2 from the floating-point number f1 
and places the result on the ~— of the stack. 


Fe f1 €2 — £3. 


This word multiplies the tap two floating-point numbers and places the result on. 
the top of the stack. 


F/ #1 #2 —— fs 


This word divides the floating-point number fi by the floating-point number f2 and 
places the result on the top of the stack. a 


FLOAT n -—— fil 


This word converts the integer on top of the stack is to a floating-point number and 
places the result on the top of the stack. 


FIX fi-— on 


—_ 


This word fixes the floating-point number on the top of the stack (after rounding) 
and places it on the top of the stack. The range of the integer result must be 
between -32768 and 3276/7. 


FLO fi == f2Z 


This word replaces the floating-point number on the top of the stack with the 
number’s natural logarithm. 


 FLOGIO f1-— 2 


This word replaces the a ea number on the top of the stack with the 
number’s log base 10, 


dial =? — fii 


This ——? raises the Seatiiomneint ee on the — of the stack to the power "e” 
and replaces the top of the stack. | | 


_FEXP10. ‘f1—f2 


‘This word raises the floating-point number on iia —— of the stack to the power ” 
and —_— the top of the stack. ae, o.8 tea eS _ “22 


FO= f- —e ~ Flag 


This wee drops the er num ber from the stack and tests it. If the - 
number is equal to zero, a true flag (1) is placed on the stack; siisaalldaiaa a ion: : 
flag (0) is placed on the stack, | | 


F= fi f2 — flag 


This word drops the top two = esiieieael numbers _— the stack and compares them. 
If they’re equal, a true flag (1) is placed on the stack; otherwise, a false rag 
(0) is placed on.the stack. 


F=¢ fi £2 — flag 


This word drops the top two floating-point numbers from the stack and compares them. 
If f1 is strictly less than £2, then a true (1) flag is placed on the stack; 
otherwise, a false (0) flag is placed on the stack. 


COMMENTS 


This package isn’t meant to be exhaustive, nor is any claim made for its level of 
usefulness. However, if you need floating-point capabilities, the package works quite 
well to extend the range of numbers, particularly in scientific calculations. 
Trignometric functions could be added by a clever programmer. A sufficient set is SIN, 
COS, and ATN. A random—number generator could also be added. In fact, any number of 
features could be added. 


In summary, if you can’t —_ your program specifications using the double-precision 
capability of FORTH, then try this floating-point package, | 
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OPERATING SYSTEM 


s _ INTRODUCTION 
This vocabulary package implements the full set of ATARI computer’s OS I/O routines, It 
also adds a FORMAT command; as well as a BOOT850 command, which downloads the RS-232 I/O 


package into the system so that you may use the asynchronous I/O supplied in ROM in the 
ATARI 850 Interface Module (devices "R1", "R2", etc.). 


Load the OS definitions package by typing? 
81 LOAD oe 


Load the BOOTS50 package by typing? 


Be aware that the ATARI 850 I/O routines take up nearly 2K of RAM, and they are loaded 
directly into the dictionary. i | | ie see 
DEFINITIONS 


4 


OPEN addr ni nZ n3 -— n4 


This word opens the device whose name is at addr on channel ni with AUX! value 
n2Z and AUX2 value n3. Upon return, it places the OS STATUS byte on top of the 
stack, The address of the name may be obtained by storing the character name in 
PAD and then referencing PAD in the OPEN command. EXAMPLE! ASCII § PAD C! 
will set the character "S” into the PAD buffer. Then, PAD 3 12 0 OPEN will 
open “S3" on channel 3, with AUX1 =12 (read-and-write), and AUXZ=0, ) 


CLOSE nil —— n2 


This word closes channel ni and returns the status byte at the top of the stack 
(n2). The status byte will always be a 1 (operation complete, no errors). 


PUTC char ni -— n2 
This word outputs the character char on channel ni and returns status byte nz. 


GETC ni -—— char n2 


This word gets one character from channel ni and returns it and the status byte 
nZe 


GETREC addr ni n2 ——- ns 


This word inputs record to address addr but no more than ni characters from 
channel nzZ. It returns status byte n3. 


PUTREC addr ni n2 -——- n3 


This word outputs ni characters from a buffer whose address is addr to channel 
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n2. It returns status byte n3,. 
STATUS nl —— n2 


This word gets the aca byte F From channel ni. 


DEVSTAT nl ——- nZ n3 na 


This ane gets the device status bytes nZ and n3 and the normal etalon - n4 
From channel ni. : 


SPECIAL nf ne n3n4 ns nb n7 ne ——— ng? ee ores a gt RO a a 
This ome is the Os "Special" command that does anything any ) of the others can’t. 


ni thru né are the values of AUX1 thru AUX&, n7 is the command byte (whatever 
your device wants), and nS is _ channel numbers ‘The command returns the status 
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FORMAT —_ : 
This word formats a diskette. The command is ee n 


BOOTS8S0 -— 
This word boots the Atari $50 Interface Module software drivers _e the dictionary. 


Screen 83 must be loaded to exeaste this command. DO NOT TRY TO EXECUTE THIS ~ 
COMMAND TWICE IN A ROW, THE SYSTEM WILL LOCK UP IF YOU DO. 


i ae 
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FORTH BIBLIOGRAPHY 


In order of technical level 


1, Starting FORTH, Leo Brodie, Prentice-Hall 


The best all-around book for anyone beginning programming...and not just in FORTH. This quite new 
book is everything one could want in a FORTH primer. It begins by assuming that you know absolutely 
nothing about computers at all and leads you to some quite sophisticated programs at the end. Even 
experienced programmers will learn. a-great deal from this fine work. HOWEVER, the text is not too 
compatible with fig-FORTH. There are many examples that will cause trouble when using fig-FORTH. 
ieee iaeatiitala’ this book !! 4... and read it !!! 


Ze “Invitation to 1 FORTE, salad Katzan, Urey Petrocelli Books 


“This book i: is for the total novice, and deals orinaitios with ee the first-time computer user 
to the fundamental concepts of computer programming, and explores FORTH somewhat casually as it 
moves along. Non-novice users will become impatient with the ‘ong elementary discussions and the 
awkward type-face (no descenders). 


.3 BYTE Magernm 1 Bow a BO) | 


The FORTH-dedicated issue which = brine the concepts of FORTH to thousands of people who 
might not otherwise have ever heard of the language. While the presentations are somewhat erratic in 
their technical content, the whole issue deserves reading to acquire a-taste for FORTH. 


4. Dr. Dobb’s Journal, Vol.é No.? (Sept. ’&1) 


A second "dedicated issue" on the FORTH Lanquage. This issue approaches FORTH from quite a 
philosophical point of view, and is excellent reading for the somewhat advanced programmer who, say, 
already knows several lanquages. The issue is a WeasKn of ideas and solid FORTH programs .. the 
Ragsdale Assembler, for one! 


+ A FORTH PRIMER, NW. Richard otevens, Kitt Peak Nat’l Observatory 


This 1s a "self-study" quide to FORTH from the place where it all started. The FORTH described 
differs somewhat from fig~-FORTH, but the book is quite good. It includes some floating-point words 
which are not too different from the package included with this product. oe 


é& Systems Guide to fiq-FORTH, C. H. Ting, Offete Enterprises. 


A complete, in-depth analysis of every fig-FORTH word used in the entire figq-FORTH vocabulary. If 
you ever wondered just exactly how a word such as ‘INTERPRET’ works .. it’s all here '' For the 
advanced FORTH programmer. 


7. Threaded Interpretive Lanquages, R. G,. Loeliger, McGraw-Hill 
This is a definitive work for those who want to write their own FORTH Language processor. It uses 
8050 code for its examples, but the routines are so well explained that it would be quite easy to 


translate the code to any other processor. The FORTH isn’t exactly fig-FORTH, but the differences are 
quite minor, and are easily accomodated. 


co FORTH Dimensions, the journal of the Forth Interest Group (fig) All Vols. 


These bound journals are available from the Forth Interest Group, P.O. Box 1105, San Carlos, CA 
24070, The FORTH Language at its best and its worst. A highly-technical journal for the FORTH addict. 


ALL OF THE ABOVE ARE AVAILABLE FROM: 
Mountain View Press 
P.O. Box AES 6, Mountain View, CA 74040 
(415)-261-4103 
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GOOD BOOKS FOR LEARNING TO FROGRAM IN FORTH: 


Using FORTH starting FORTH 
FORTH Imce | By Leo Brodie 
Hermoss Beach, CA 90254 = FORTH, Ine. 
Pee eh | Hermosa Beach, CA 90254 
Frenmtice-Hsall, Ime. 1981 


REFERENCES FOR DEVELOPING GOOD STRUCTURED FROGRAMMING TECHNIQUES? 


le D.L. Mills, "E> mnckiwe wentens a iincnen development for mir 


ak Ma jet rt Proce LEEES vol. ‘Ol; PP. is 46- 1s62 Nader dace i773. 


G5. : “Wd. Koudela, Ure, "The past, present and future of minicomputers," 
Proc: BEERS iara eared PP. 1526-1534; November 1973. 


+ 4° oR. Burns. and Ds Savitt, "Microprogranming and stack architecture 
: ease the minicomputer Pree anne ‘Ss Pia ae Electronics, vol. 46, 


“15 February 1973. 9 


‘ ae ° 


Ff 


4. D. Es ee * The Aart of Com puter Programming, vol. I. Readina, 
Mass. Addison— -Wesley, 1968. | 

a GeAe Kory hie annie for scientists and ai Sonate « New York $ 
MceGreaw- “Hill, ‘1973S oe 


dead FOLLOWING ARE AVAILABLE FROM THE FORTH INTEREST GROUF F.O. 
Box 1105 SAN CARLOS, CA 94070.: 


Membership im FORTH Interest Group 
ama Volume 2 (6 issues: #7 through #12). 


of FORTH DIMENSIONS. 


ote Be 


fia-FORTH Inmstslleation Manual, comtainine 
« the lanquage model of fie-FORTH, 32 
complete @elossary, memory map, and 
imstallation imstruction. 


Assembly lanaquage source listing of fig- 
FORTH for specific CFU’s. The above 
Mmarntsal 1s required for installation. 
Specify the desired CFU. 
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Stack inputs and outputs are shown: top of stack on right. 
This card follows usage of the Forth Interest Group 
(S.F. Bay Area); usage aligned with the Forth 78 


international Standard. 
Forth interest Group 


For more info: 


P.O. Box 1105 

San Carios, CA 84070. 
STACK MANIPULATION 
DUP (n— nan} 
DROP (n— ) 
SWAP (ni n2 — n2nt ) 
OVER (al n2 — ni n2 nat ) 
ROT (ni n2n3—~ n2n3 ni ) 
-—DUP ({n-~—-n?) 
>R (n— ) 
R> ( —-n) 

( =n) 


fF... (true)... ENDIF 
IF... (true)... ELSE 
. ENOIF 


.. (false). . 
BEGIN... UNTIL 
BEGIN ... WHILE 

... REPEAT 


DECIMAL ( - yy 

HEX (>) 

BASE { — addr ; 

ARITHMETIC AND LOGICAL 
(nt n2 — sum ) 
(d1 d2 ~— sum ) 
(ni n2 — Giff ) 
(nt n2 — prod ) 

/ (n1n2 — quot ) 

MOD (ni n2 — rem ) 

/MOO (ni n2 — rem quot ) 

*/MOO {ni n2n3 — rem quot ) 

*/ (ani n2n3 — quot ) 

MAX (nl n2 — max ) 

MIN (ant n2 = min) 

ABS (n — absolute ) 

DABS (d — absolute ) 

MINUS (n—- <n) 

OMINUS (d — -d ) 

AND (ni n2 — and ) 

OR (ni n2 — or ) 

XOR (ni n2 — xor ) 

COMPARISON 

< (ni n2 — f) 

> (ni n2 — f) 

= (nt n2 — f) 

0< (n—~ f) 

O= = ({n — f) 

MEMORY 

'@ ( addr ~ n ) 

! (n addr — ) 

C@ ( addr — b ) 

C! (b addr — ) 

? (addr — ) 

+! (n addr — ) 

CMOVE (from tou —~ ) 

PILL (addrub-—, ) 

ERASE (addru -— ) 

BLANKS (addru— ) 

- CONTROL STRUCTURES 

DO... LOOP do: ( end+1 start — ) 

| ( — index ) 

LEAVE = J 

DO... +LOOP do: ( end+1 start — 


+icop: (n =~ ) 


(f= ) 
(f= ) 


until: (f — ) 
while: (f— ) 


.. 16-bit signed numbers 

. d2-dit signed numbers 
16-bit unsigned number 
address 
8-dit byte 
7-dit ascii character value 
boolean flag 


Duplicate top of stack. 
Throw away top of stack. 


. Reverse top two stack items. 


Make copy of second item on top. 

Rotate third item to top. 

Duplicate only if non-zero. 

Move top item to “return stack” for temporary storage (use caution). 
Retrieve item from return stack. 

Copy top of return stack onto stack. 


Set decimal base. 


Set hexadecimal base. 
Syster variable containing number base. 


Add. : 

Add double-preciaion numbers. 

Subtract (n1—n2). 

Multipty. | 

Divide (n1/n2). . 
Modulo (/.e. remainder from division). 
Divide, giving remainder and quotient. 
Multiply, then divide (n1°n2/n3), with double-precision intermediate. 
Like */MOD, but give quotient only. 
Maximum. 

Minimum. | 

Absolute value. 

Absolute vaiue of double-precision number. 
Change sign. 

Change sign of doubie-precision number. 
Logical AND (bitwise). 

Logical OR (bitwise). 

Logical exclusive OR (bitwise). 


True if ni less than n2. 

True if n1 greater than n2. : 

True if top two numbers are equal. 

True if top number negative. 

True if top number zero (/.e., reverses truth vaiue). 


Replace word address by contents. 

Store second word at address on top. 

Fetch one byte only. 

Store one byte only. 

Print contents of address. 

Add second number on stack to contents of address on top. 
Move u bytes in memory. 

Fill u bytes in memory with b, beginning at address. 

Fill u bytes in memory with zeroes, beginning at address. 
Fill u bytes in memory with bianks, beginning at address. 


Set up loop, given index range. 
Place current index value on stack. 
Terminate loop at next LOOP or +LOOP. 


Like DO ... LOOP. but adds stack vaiue (instead of always °1°) to index. 
# top of stack true (non-zero), execute. [Note: Forth 78 uses IF ... THEN.) 
Same, but if false, execute ELSE clause. [Note: Forth 78 uses IF . . 


Loop back to BEGIN until true at UNTIL. [Note: Fort 78 uses BEGIN... END.) 


- Loop while true at WHILE. so ete loops unconditionally to BEGIN. 
[Note: Forth 78 uses BEGIN .. ... AGAIN_] 


.ELSE... THEN] 


D. 

D.R 

CR 
SPACE 
SPACES 


OUMP 
TYPE 
COUNT 
7TERMINAL 
KEY 

EMIT 
EXPECT 
WORD 


INPUT-OUTPUT FORMATTING 


NUMBER 


DISK HANDLING - 


UST 

LOAD a has, 
BLOCK | 
B/BUF 

BLK 

SCR 

UPDATE 

FLUSH 
EMPTY-BUFFERS 


MINAL INPUT-OUTP 
{n— ) 


(n fieldwidth — ) 
(d— } 

(od freldwidth — ) 
{ — 

( = ) 

(n— ) 

( - ) 
(addru — ) 
(addr u ~— ) 


( addr — addr+1 u ) 


( ~f) 
—- ¢c) 


( 
(c— ) 
(addrn— ) 
({c- ) | 


( screen — ) 


( block — addr) 


( 
( 
( — addr ) 
( 
( 
( 


it 4 


DEFINING WORDS 


> XXK 
VARIABLE XXX 
CONSTANT xxx 


CODE xxx 
.CODE 


<BUILDS ... 


of 


(- ) 


OOES> does: ( — addr ) 


VOCABULARIES 


CONTEXT 
CURRENT 

FORTH 

EDITOR 
ASSEMBLER 
DEFINITIONS 
VOCABULARY xxx 
VLUST 


MISCELLANEOUS AND SYSTEM 


( 

FORGET xxx 
ABORT 

a > > { 

HERE 

PAD 

IN 

SP@ 

ALLOT 


( 
( 
( 
( 
( 
( 
( 
( 


bbbuurdua 


— ) 


Tuten 
a. 
a 


( 
( 
( 
( 
( 
( 
( 
( 
(in 
(in 


( screen — = ea List : a ek screen. 


"2° (Lead disk screen aaetie: or execute). © 


Paint number. 

Print number, right-justified in field. 

Print double-precision number. 

Print double-precision number, right-ustified in field. 

Do a carnage retum. 

Type one space. 

Type n spaces. 

Print message (terminated by °’). 

Dump u words starting at address. 

Type string of u characters starting at address. 

Change length-byte string to TYPE form. 

True if terminal break request present. 

Read key, put ascii value on stack. 

Type ascii value from stack. - 

Read n characters (or until carriage return) — input to address. 
Read one word from input stream, using given character (usually blank) as delimiter. 


Convert string at address to double-precision number. — 


Start output string. 

Convert next digit of double-precision number and add character to output string. 
Convert all significant digits of sieaiatiall abataieaaald number to output ae 

Insert sign of n into output string. 


. Terminate output string (ready for TYPE). . 


insert ascii character into output string. ae aes 


Read disk block to memory address. - 
System constant giving disk block size in bytes. 
System variable containing current block number. 


_ System variable containing current screen number. — 


Mark last buffer accessed as updated. 
Write all updated buffers to disk. 
Erase all buffers. 


s re 


Begin colon definition of xxx. 
End colon definition. | 


Create a variable named xxx with initial value n; returns address when executed. 


Create a constant named xxx with vaiue n; returns value when executed. 


Begin definition of assembly-language primitive operation named xxx. 

Used to create a new defining word, with execution-time “code routine” for this data 
type in assembly. 

Used to create a new defining word, with execution-time routine for this data type in 
higher-level Forth. 


Returns address of pointer to context vocabulary (searched first). 
Returns address of pointer to current vocabulary (where new definitions are put). 
Main Forth vocabulary (execution of FORTH-sets CONTEXT vocabulary). 


' Editor vocabulary; sets CONTEXT. 


Assembier vocabulary: sets CONTEXT. 

Sets CURRENT vocabulary to CONTEXT. 

Create new vocabulary named xxx. 

Print names of all words in CONTEXT vocabulary. 


@ 


Begin comment, terminated by right paren on same line: space after (. 

Forget all definitions back to and including xxx. 

Error termination of operation. 

Find the address of xxx in the dictionary; if used in definition, compile address. 
Returns address of next unused byte in the dictionary. 

Returns address of scratch area (usually 68 bytes beyond HERE). 

System variable containing offset into input buffer; used, e.g.. by WORD. 
Returns address of top stack item. 

Leave a gap of n bytes in the dictionary. 

Compile a number into the dictionary. 
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Rainy #21 


0 (DEBUGGER AIDS —- DUMP, CDUMP ) 
: : 
2 BASE @ HEX Jon CFA S 


3 
4 OZFE CONSTANT DSPFLG 


oO on 


7:DSP.ON ODSPFLG!; 

8: DSP.OFF 1 DSPFLG!; 

? ( USED BY “DUMP") — 

10 

11!H. BASE @ HEX U. BASE!} 

1? 

132:B? BASE @ DECIMAL. BASE!; 
14 | 

sia 7 


SCR # 22 
0 ( DEBUGGER AIDS — DUMP , CDUMP ) 
i DECIMAL 
2: ?EXIT ?TERMINAL 
3 I IFLEAVEENDIF; — 
4:U.R OSWAPD.R; 
~ + LDMP DUP 8 + SWAP DOIC@4.R 
& LOOP ; 
7!:DUMP OVER+SWAP DOCRISURI " 
S LDMP ?EXIT 8 +LOOP CR; 
9;CDMP DUP 16+ SWAP DO 
10 I C@ EMIT LOOP ; 
11:CDUMP OVER+SWAPDOCRISU.RI 
12 SPACE DSP.OFF CDMP DSP.ON 
13 EXIT 16 t+LOOP CR; 


14 
lo ==2 
SCR # 23 


0 (STACK PRINTER } 
1 
2 HEX 
3 
4; DEPTH SP@ 12 +ORIGIN @SWAP-2/; 
5:S. (PRINTS THE STACK ) 
& DEPTH -DUP IF 
- 7 ODO CR .* TOP+"I. 
S SP@IZ2#+@U. LOOP 
9 ELSE ." Stack Empty" THEN CR; 


13 BASE ! 
14 
15 -—> 


SCR # 24 
O ( DEFINITION TRACER } 


1 BASE @ HEX 
20 VARIABLE .WORD 
oo 3’ CLIT CFA CONSTANT .CLIT 
| 4’ OBRANCH CFA CONSTANT ZBRAN 
5 ‘BRANCH CFA CONSTANT BRAN 
&’?S CFA CONSTANT SEMIS 
7‘ (OOP) CFA CONSTANT PLOOP 
©’ (+LOOP) CFA CONSTANT PPLOOP ) 
9’(.") CFA CONSTANT PDOTG -3I- 


10; PWHORD 2+ NFA ID. ; 

li; iBYTE PWORD .WORD @C@.1.WORD +!} 
iz: INWORD PWORD .WORD CCG .2.WORD +! ; 
13: NP DUP SEMIS = IF PNWORD CRCR 

14 PROMPT QUIT THEN 7TERMINAL IF 

1S PROMPT QUIT THEN; --> 


SCR # 25 
© (DEFINITION TRACER ) 
1 | 
2: BRNCH PWORD ." to" .WORD @ WORD @@+.2.WORD +!} 
3 
4:STG PWORD 2 EMIT WORD @ DUP COUNT TYPE 22 EMIT 
S§ C@ WORD @ + 1+ WORD !} es 
& 
7! LIT CFA CONSTANT LIT 
gS 
Of : CKIT DUP ZBRAN = OVER BRAN = 
10 OR OVER PLOOP = OR OVER PPLOOP = 
11 OR IF BRNCH ELSE DUP .LIT= _ 
_ 12 IF 1WORD ELSE DUP .CLIT = 
13 IF 1BYTE ELSE DUP PDOTQ=IF STG 
«44 ELSE PWORD 1 THEN THEN THEN THEN } ; 
| is =? .. | oo 


SCRE2 = kg th? Pea 
0 (DEFINITION TRACER) _ 
‘312 + CONSTANT DOCOL | het Mes, oo eS 


2!T?PRCRCR." Primitive” CRCR} 
4: ?DOCOL DUP 2-@DOCOL - IF 
5 T?PR PROMPT QUIT THEN} 


7} SETUP [COMPILE] ‘ 7DOCOL .WORD !; 


91 NXT1 .WORD @ U. 2 SPACES .WORD 
10 @@2.WORD +; ; 


11 
i2;DECOMP SETUP CR CR BEGIN NXT1 NP 


13 CKIT CR AGAIN ; 


14 
15 BASE ! 3S 
SCR # 27 
O { ## EDITOR #+ ) 
= 1 
2 BASE HEX 
3 


4 ( THIS EDITOR IS PATTERNED AFTER 
S (THE EXAMPLE EDITOR IN THE fig 

4 ("INSTALLATION MANUAL" 8/80 WFR 
7 

8! TEXT HERE C/L 1+ BLANKS WORD 

9 HERE PAD C/L 1+ CMOVE} 

10 

11! LINE DUP FFFO AND 17 ?ERROR SCR 
12  @(CLINE) DROP} 

13 

14!MARK 100 DOI LINE UPDATE 

i5 DROP LOOP: —> 


SCR # 23 
0 (LINE EDITOR DEFS ) 
: VOCABULARY EDITOR IMMEDIATE 
‘ WHERE DUP B/SCR / DUPSCR!." SCR #" DECIMAL. ~ 
3 SWAP C/L /MOD C/L *# ROT BLOCK + CRC/L -TRAILING TYPE CR HERE 


eres 


- SPACES 55 EMIT [COMPILE] EDITOR QUIT ; 


» EDITOR DEFINITIONS 

#LOCATE R# @C/L /MOQD ; 

FLEAD #LOCATE LINE SWAP; 
#LAG LEAD DUP >R+C/L FR -; 
10 = 
1i.-MOVE LINE C/L CMOVE UPDATE ; 


‘Oc ~IJ 


130 
14 

15 -—> 
SCR # 29 


O( LINE EDITING COMMANDS ) 

1 +H LINE PAD 1+ C/L DUP PAD C! 
oe CMOVE; | 

3$E LINE C/L BLANKS UPDATE ; 

4:5 DUP 1 -0EF DOI LINET 1+ 

» —-MOVE-1+LOOPE; 

6:D DUP H OF DUP ROT 
J DOI1+ LINEI-MOVE LOOP E; 


1i0 — 


SCR # 20 
0 ( LINE EDITING COMMANDS ) 
{ 
2!M R#+!CR SPACE #LEAD TYPE 
17 EMIT #LAG TYPE #LOCATE 
» DROP} 
!T DUPC/L# R#!DUPHOM;} 
-L SCR@LISTOM;} 
{R PAD 1+ SWAP -MOVE} 
$P 1TEXTR} | 


12 
is = 
14 
1s 
SCR # 31 


0 (SCREEN EDITOR COMMANDS } 


3 = 


¢:CLEAR SCR'!100 D0 FORTH I 
4 EDITOR E LOOP ; 
6 
7 
= 
9 | 
10: COPY B/SCR # OFFSET @+ SWAP 
11 B/SCR * B/SCR OVER + 
12 SWAP DO DUP FORTH I 
13 BLOCK 2-!1+ UPDATE 
14 LOOP DROP FLUSH ; 


SZ 
STRING EDITING COMMANDS ) 


wy) 


rn ars: 


ILINE +#LAG PAD COUNT MATCH R# 
+13 


ee 


FIND BEGIN 3FF R# @< IF TOP 
PAD HERE C/L 1+ CMOVE 0 
ERROR ENDIF 1LINE UNTIL 


ae @ Ls 


@@ 


ee Ce oo 
11!DELETE >R #LAG + FORTH R- 
12 #LAG R MINUS R# +! #LEAD 
13 +SWAPCMOVE R> BLANKS 
14 UPDATE} 
15> _ 


“SCR # 33° ee 
Of SCREEN EDITING COMMANDS 


3 qi 2 i + aie * : eae * é 
3 me : ee ¢ . Wes 
: @ SEP ys Cid 8 “J SEe- veh 52 seas a ee : 
- , 7 gol xs . noe 8 o- 7 
s a 4, we if . Fos “. “ 
aed > see ie ee a Tre Dee ly pitas : oo 
~ * 7 a ce & 4 ” a! ‘ 
. a : oo eae % * 
= <<. 3 : ere 
- : : . 2 pee S 
' .. 5 Cae a ae a = ‘ as 
i ow fad ‘f ad % ’ 7 
- ” <4 ~~ ar eet oe E . 
: 5 ’ ‘ 


| 1 | TEXT N} ; : : 


3 
43F 
5 
6:B PAD CO MINUS M: 
, 

8:X 1 TEXT FIND PAD C@ DELETE 
q 


OM; 

10 

11:TILL #LEAD +1 TEXT 1LINE 0= 
12 0 ?ERROR #LEAD + SWAP - 
13 DELETE OM; | 
14 

Lo ==> 
SCR # 34 


0 (SCREEN EDITING COMMANDS ) 

1 

2:C i TEXT PAD COUNT #LAG ROT 
OVER MIN >R FORTH R R# +! 

R - >R DUP HERE R CMOVE 
HERE #LEAD + R> CMOVE FO 
CMOVE UPDATE OM; 


On O& GI G) 


° FORTH DEFINITIONS DECIMAL 
10 
11 LATEST 12 +ORIGIN ! 
i2 HERE 28 +ORIGIN ! 
13 HERE 30 +ORIGIN ! 
14’ EDITOR 6 + 3Z +ORIGIN ! 
iS HERE FENCE! 3 


SCR # 25 


OON OOS WN OS 


SCR # 36 
0 (DISK COPY ROUTINE 40K RAM) 
1 (40 K RAM AND DRIVES #1 AND #2) 
? | 
3 24576 CONSTANT BUFHEAD 
40 VARIABLE BLK# 0 VARIABLE ADRS 
5:GET ADRS @BLK#@Q} 
&6$RD GET DUP 71$=IF LEAVE THEN 1 R/W} 
7:WRT GET 720 + DUP 1438 =IF LEAVE THEN 0 R/W} 
8!+BLK 1 BLK#+! 128 ADRS +!} 
9:SETUP BLK#! BUFHEAD ADRS !} 
10 i | 
11!RDIN SETUP 90 0 DO RD +BLK 
12 LOOP } 
13!WRTO SETUP 90 0 DO WRT +BLK 
14 LOOP; a 


> ee 
SCR # 37 
0 (DISK COPY ROUTINE ) 
i 
_ 2 (INSERT SOURCE DISK IN DRIVE #1 
3 (AND NEW DISK IN DRIVE #2. THEN, 
4( SIMPLY TYPE "DISKCOPY" ! 
5 


6: MS1 CRCR 
7 ." INSERT SOURCE IN DRIVE #1 AND" 


8 CR ." NEW DISK IN DRIVE #2" CR 
9." HIT ANY KEY WHEN READY." 


10 KEY DROP: 
11 
12:%COPY ODOI90# 
13 DUP DUP RDIN WRTO 
14 90+ . LOOP; 
i5—> 
SCR # 32 
0 (DISK COPY ROUTINE ) 
; 
2 
3:DISKCOPY CRMS1 CRS %COPY} 
4 
5 
4! FORTHCOPY CRMS1 CRS %COPY } 
7 
2 3S 
9 
10 
11 
42 
12 
14 
15 
SCR # 29 


O (## ASSEMBLER ## IN FORTH ) 


1 
2( ASSEMBLER COMFORMS TO THE | 


3 ( fiq "INSTALLATION GUIDE" WITH 


4 (THE FOLLOWING EXCEPTIONS: 

re) 

6( SHIFTS ARE: "XXX.A" FOR A-REG, 

7 ( SHIFTS. 

&¢ ( CONDITIONAL BRANCHES ARE 

?( PATTERNED AFTER THE BRANCH OP- 
10( CODES: “IFEQ,” IS USED IN- 

11 (STEAD OF "0= IF," FOR BETTER 

12 { CLARITY. SEE SCREEN 43, 


SCR a 40 ee . 
0 ( ASSEMBLER VOCABULARY 7 


ae : 
a VOCABULARY ASSEMBLER IMMEDIATE 
4 BASE @ ‘HEX 

5 

63 CODE {COMPILE} ASSEMBLER | 
re ASSEMBLER DEFINITIONS Re EPP 

10 © : oe tet © 73 
11:SB BUILDS C, DOES? @C,} eS * 

- 12. (SINGLE BYTE OPERATORS) Oo 


Bus 


SCR # 41 
0 (SINGLE-BYTE OPERANDS ) 
i 
2 00 SB BRK, 18 SB CLC, DS SB CLD, 
358 SB CLI, BS SB CLV, CA SB DEX, 
4 82 SB DEY, ES SB INX, C8 SB INY, 
S EA SB NOP, 48 SB PHA, 08 SB PHP, 
& 68 SB PLA, 28 SB PLP, 40 SB RTI, 
7 60 SB RTS, 38 SB SEC, F8 SB SED, — _ 
$ 78 SB SEI, AS SB TAX, BA SB TSX, a 
9 8A SB TXA, 9A SB TXS, 98 SB TYA, 
10 
110A SB ASL.A, 24 SB ROL.A, 
124A SBLSR.A, 64 SB ROR.A; 
- 43 
14!NOT 0=; ( REVERSE LOGICAL } 
15:0= 1$(PUSHA TRUE) —> 


SCR # 42 | 
O(JMP, JSR, BRANCH CODES } 


fra 


7 SBY <BUILDS C, DOES> @C,,; 


C3SBY JMP, 6C 3BY JMPOQ, 
O SBY JSR, 


:-°ERS 5 ?7ERROR} 


9: IF. <BUILDS C, DOES> C@C, 0 
10 C, HERE ; 

11°:THEN, DUP HERE SWAP - DUP 
12 7F > 27ERS DUP -80 < 7ERS 
13 SWAP -1+C'; 

14; ENDIF, THEN; ; 

15 -——> 7 


SCR # 43 


0 (CONDITIONAL BRANCH CODES ) 
I 
210IF.IFPL, (BPL) 
2+ 30 IF. IFMI, ( BMI ) 
430 IF. IFVC, ( BVC ) 
JY JO IF. IFVS, (BVS) 
& 90 IF. IFCC, (BCC }) 
7 BOIF.IFCS, (BCS) 
& DO IF. IFNE, ( BNE > 
? FO IF. IFEQ, ( BEG , 
10 
a BEGIN, HERE ; 
:END, IF DO ELSE FO THEN C, 
HERE 1+ - DUP 
14 -80< 7ERS A , 
ods: Lette END, + . . Se 


SCR # 44 


O ¢ MEMORY-REFERENCE INST. ) 


i 
2 oD Varia Mee ( S esaiat alec , 


ae. 


43 MODE= “MODE @ = ¥( CK MODE 7” 
5:206¢ DUP 100 ( HEX) <3 
&$MODEFIX 25é< IF -08 MODE + 

7 THEN ; 
S ( MODE=MODE-8 IF ADR<256 } 
93;CKMODE MODE= IF MODEFIX 
10 THEN } 
11} MO <BUILDS C, DOES> SWAP 
| OD CKMODE 1D CKMODE SWAP 
13 C@MODE@ORC, 256 IF 
14 C, ELSE , THEN 0D MODE !; 
15-—-—> 


SCR # 45 
0 (MEMORY REF. INST. ) 
i 
2!:X) 01 MODE!'$ (CADDR,X] ) 
2!%# O9MODE!;} (IMMEDIATE) 
4:)Y 11MODE!; (CADDRI,Y ) 
5!,X 1DMODE!;} (ADDR,X ) 
&!,Y 19MODE'! (ADDR,Y ) 
7 


8 
9 00 MO ORA, 20 MO AND, 40 MO EOR, 


10 60 MO ADC, 80 MO STA, AO MO LDA, 
11 CO MO CMP, EO MO SBC, 

12 

13: BIT, 256¢ IF 24 C, C, ELSE 

14 2C C,, THEN ; 

io ==) 


SCR # 46 
0 (MEMORY REF. INC, CPX, ETC. ) 


>STOREADD C, 2546 IF C, ELSE , 
THEN OD MODE !; 


ZPAGE OVER 100 < IF F7 AND 
THEN ; 
XYMODE MODE @ 19 = MODE @ 1D 
=OR; 
: Mi <BUILDS C, DOES> C@ MODE @ 


oe 


ee 


a 


Te ae in Oe ee en ee a ce Te nie ie eles ree I ee Ee ee ee ne ERT EIEIO, SPS SOF TRE II LE Ty I LE TS Be EO CT I EE OE CS LET ee LEE ae A I MEE, LTE RE = GT OE Te oe tet 


10 1D =iZ1F 10 ELSE 0 THEN OR 
11 t-AGE STOREADD ; 


13 OF Mi ASL, 2E Mi ROL, 4E M1 LSR, 
14 4E Mi ROR, CE Mi DEC, EE M1 INC, 
15 --> 


OCR # 47 
QO ( MEMORY REF. INST. ) 
1 
2:OPCODE C@ ZPAGE XYMODE IF 10 
3 OR THEN ; 
4$M2 <BUILDS C, DOES> OPCODE — 
rs) MODE @ = IF 4 - THEN 
6 siabesiensienien ; 
7 


SAC M2LDY, AEM2LDX, 
9CCMZCPY, EC M2 CPX, 

10 

11!M3 <BUILDS C, DOES> OPCODE 
12 STOREADD ; 


” ‘ 
. * : 
. aia te woe a - “ < oa: ers es . of te -pwlt > - . 
. i r * * a ‘ 7 ony 7 ine 3 2 2 . <-- 
Pt A o . . Be . ~ be sore ®& : ag a Ry 
- F RS 7 . pret wes . , " - 8 et er eee ie . ~~ +. 
- , oy > ots ae coon ft : oo. o-oo. * ca é 
Lame, 28S, ‘ - a an Se . , - 5 tek s4 : es ‘ 
i : : . . . ome - : * Ne, * + sty. gh ~ o aod gee: . Weng oe eae x 
: igs _ = , . “we : ‘ a eo ak Te. gh ms é wo eles rte. mo gos MRR ee CH, Spee, . bey tS, 
a no ee z % ‘ ’ _ 5 : : 7 bas - 
ahs “ . bd * . aes es - . * - = 
aa ergy - . - ty - ae ae ar : 3 . on Me ‘ & = ba ate * 

ee Bei : 2, . 2 dé a ; : i z a = — = oe 
; i SENS eee ‘ Sp ee = Dd ge Sake . . . : i ; Firs . So te” OE ao . 
. 7 : : : a : 4 eet EY ereton ge 2 Bias 8 gat He F 4 é dane ‘ + ae . ak te te ; ee a 
: ‘ * 7 get . ieee, + sda we feo < + £ P fi . a F 2 - ' i ' ~ ~ 3. _ ; > a c & 
- . 4 és ™ go . + re he ome bei way ey Loa ye : 7 ae. 

: : ve M vr +t oe! is (a aves ee i oS , , 
: 7 . oe to ome - ow mH . Me re . ow ng ; a? gy . are , 
rs : " 4 Ae eG is f a .- ” 
‘ > a canes om , ’ fet asty “agit Fe tae Say eg $ poe 
- 3 Ps : 7 . a 
a “4 . oe ‘ nae " faee came, Serr : - x 
. ' . " . ( of oe + 
; °y . ~ pe 1B a ane day S ge wee heen a a 7 " 5 . 
-~ a: : : 
: ‘ 


Q(ENDOF ASSEMBLER) | ew. #s* a 
2 FORTH DEFINITIONS 
3 
4 
~ LATEST OC +ORIGIN ! (NTOP ) 
‘ | 
: HERE 1C +ORIGIN' ( FENCE ) 


— 1E +ORIGIN! (DP) 


i= BASE! nS 


SCR # 49 


OMOnN O&O PON © 


> bh be ee Be 
Qhaee &S 


ch tf © 


SCR #50 
0 (COLOR COMMANDS ) 
1 BASE @ HEX 
2:SETCOLOR 2 # SWAP 10 # OR SWAP 
3 02C4 (COLPFO)+C!} 


ce 


SE, SETCOLOR} ( ALIAS } 
-4( REGISTER#-3, COLOR-2, LUM-1 


0-3 O-F 0Q-7 


OTN OAS 


SCR # 351 
O (GRAPHICS COMMANDS ) 
1 E454 CONSTANT CIO 
Z iC VARIABLE MASK — 
3 340 CONSTANT IOCB 

4 33 VARIABLE SNAME 


> 5 
6 CODE GR. 1 # LDA, GFLAG STA; 
7  XSAVESTX, 0O,X LDA, 


8 #30LDX, IOCBOB+,X STA, ~ 
9#3LDA, IOCB2+,X STA, oo 

10 SNAME FF AND # LDA, IOCB 4 + ,X 

11 STA, SNAME 100 / # LDA, a. 
17 IOCB5+,X STA, MASK LDA, 

13 IOCBO0A+,X STA, CIOJSR, ea 
14 XSAVELDX, 0 #LDY, POP JMP, 


is. 


SCR #52 
0 (GRAPHICS COMMANDS ) 
i 
2CODESGR XSAVESTX, #30 LDX, 
3 #C LDA, IOCB2+ 
4 X STA, CIO JSR, 
5 XSAVE LDX, 0 # LDA, 
é 
7 


GFLAG STA, NEXT JMP, 


S:XGR &GR OGR &GR; 
9 (EXIT GRAPHICS MODE ) 


SCR # 33 

0 ( GRAPHICS I/O ) 

1 

2 CODE CPUT 0,X LDA, PHA, 

3 XSAVE STX, #30 LDX, 

4 #BLDA, IOCB 2+ ,X STA, TYA, 
= JOCBéS+,X STA, IOCBY + ,X 
& STA, PLA, CIO JSR, XSAVE LDX;, 
7 POP JUMP, 


rs: 
954 CONSTANT ROWCRS 


10 55 CONSTANT COLCRS  _ 
11 

12: POS ROWCRS C!COLCRS !; 
12!PLOT POS CPUT} 

14 

15--> 


SCR # 34 
' “Q( GRAPHICS I/O) 


2 


2; GTYPE -DUP IF OVER + SWAP 
DO I C@ CPUT LOOP ELSE 
DROP ENDIF ; 


ee 


(G") RCOUNT DUP 1+ Ro +R 
GTY?PE ; 


TON &f OPI 


7:G" 22 STATE @ IF COMPILE (G") 
10 WORD HERE C@ 1+ ALLOT 

1fi ELSE WORD HERE COUNT GTYFE 

1? ae 4 > IMMEDIATE 


SCR # SS 
0 ( mannii FIL ) 
— | | | 

| 3 2FD CONSTANT FILDAT * we. t | fe SY ares 2 
4 ol a ee gs ant ys be *™, eee 

~ CODE GCOM XSAVE STX, 0 x LDA, 

& #30 LDX, IOCB2Z + ,X STA, 

7 CIOJTSR, XSAVE LDX, POP JMF, 


S | 
9:DRAW POS ATACHR C! 11 GCOM;} 
10 
113 FIL FILDATC! 12 GCOM} 
1? 
13 BASE! 3S 
14 
15 
SCR #564 
0 (GRAPHICS TESTS } 
i 
2!BOX 01010 PLOT 15010 DRAW ~e 
3 15025 DRAW 1 10 25 DRAW 
4 11010 DRAW} 
5 
6:FBOX XGR 5GR. BOX 
- 7 1025 POS 2FIL; 
g 
g 
10 
11 
12 
13 
14 
15 
SCR #57 


DON GA FONE S 


SCR # 38 


SOON CCP WNeK OS 


SCR # 59 


OWDON CAP WNe © 


10 


SCR # 60 

0 ( FLOATING POINT WORDS ) 
- 1 BASE @ DECIMAL 
Z:FDROP DROP DROP DROP ; 
3:FDUP ROR DUP > DUP ROT 
4 SWAP R ROT ROT FO; 
~ CODE FSWAP 
& XSAVE STX, #6 LDY, 
7 BEGIN, 0 ,X LDA, PHA, INX, DEY, 
S 0O= END, XSAVE LDX, #6LDY, 
9 BEGIN, 6,X LDA, O ,X STA, INX, 
10 DEY, 0= END, XSAVE LDX, #6LDY, 
11 BEGIN, PLA, 11 ,X STA, DEX, DEY, 
12 0=END, XSAVE LDX, NEXT JMP, 
13 HEX 
14 XSAVE 100 # 86 + CONSTANT XSAV 
15 : XS, XSAV $ ; —— > 


SCR # 61 
0 (FLOATING POINT WORDS ) 
1CODE FOVER DEX, DEX, DEX, 
2 DEX, DEX, DEX, XSAVE STX, 
¢ #4LDY, BEGIN, 12 ,X LDA; 


a: 


Sy Sa de ™ - 
allie RT ce ee hia fay ee Oo a et ae) 


FECL PP Sa ee ergs ay enn, = AE PE TI SE, ET ee wore Ne ara aoc ua Ghirdi>raah divest faeeae SREY a Cacnt Tare, cS omeert FreTH) Za pAlb iat Ran ret set Nas WO PEERS a ah ae odin iP AGE: aE) kb AP OO elias Sih 
aa is, = eda bee na << =<" “fo eS ee: R ail Sa rie aie 2 Fee Tk ad iE ee: ee eek pe eka EE a <j at ae ep era ® yt ugh a 6a ee on oa be Pee Ey Fo gin te Se OS TNT eid teen ce alee) iri) “ae heen gk Ck ag i ool Aa: A A ID ite ‘ew at Patines. ail Pe se SR ee TE 


Fan tia ry be =. 2 atl = = “ og - + we = ~ es. ns “ i Ps = . 
TT ee LAT Boe PE To Re ON TT ek are eee a ag EE RE ee Ee np ee ae 2 EF or SFT a re ee en OE en 


4 9,X STA, INX, DEY, O= END, 
|= XSAVE LDX, NEXT JUMP, 


Or 


7 XSAVE 100 # A&é + CONSTANT XLD 
s+ XL, XLD , ; 
y 


10 CODE AFP XS, D800 JSR, XL, NEXT JMP, 
11 CODE FASC XS, DSE464 JSR, XL, NEXT JMP, 
12 CODE IFP XS, D?AA JSR, XL: NEXT JMP, --+ 


13 
i} 14,23 
IS he 


“SCR: # 62° ae 

O ( FLOATING POINT WORDS ) 

1 

2 CODE FPI ‘xs, D9D2Z TSR, XL, NEXT JMP, 

. 3CODE FADD XS, DA6&é JSR, XL, NEXT JMP, 
4 CODE FSUB XS, DA60 JSR, XL; NEXT JUMP, © 

3 CODE FMUL XS, DADB JSR, XL, NEXT JMP, 

6 CODE FDIV XS, DBZS JSR, XL, NEXT JUMP, 

7 CODE FLG XS, DECD JSR, XL, NEXT JMP, 

8 CODE FLG10 XS, DED1 JSR, XL, NEXT J MP, 


-- 9 CODE FEX XS, DDCO JSR, XL, NEXT JMP, © 


10 CODE FEX10 XS, DDCC JSR, XL, NEXT TMP, 
11 CODE FPOLY XS, DD40 JSR, XL, NEXT IMP, 


12 —> 
is 
14 

15 

SCR # 63 


0 ( FLOATING POINT WORDS ) 
1 

2 D4 CONSTANT FRO 

2 EO CONSTANT FRI1 

4 FC CONSTANT FLPTR 

~ F3 CONSTANT INBUF 

& Fz CONSTANT CIx 

7 

€& DECIMAL 


SCR # 64 
0 ( FLOATING POINT ) 

1 

2:FQ@ORR@R2+CR>4+G} 
2:FIORR4+!R24+!R!} 

4 HEX 

5 !F.TY BEGIN INBUF @C@ DUP 
4 | 7F AND EMIT 1 INBUF +! 
7 S0 > UNTIL } 

& DECIMAL 


10! F. FRO F@ FSWAP FRO F! FASC 
11 F.TY SPACE FRO F!} 

123F? FOF} 

13 

14 ——> 

15 


SCR #65 
0 ( FLOATING POINT ) 


FRI F! FROF!; 
FRO F@ ; 
FROG! 


a 9 


CF FADD F> ; 
<F FSUB Fo; 
<F FMUL Fo ; 
<F FDIV F> ; 
10; FLOAT FRO! IFP F?; 
11:FIX FSFPIFRO@; 
12; FLOG FSFLGF>; © 
13: FLOGIO FS FLG10 F> ; 
14: FEXP FS FEX Fo; 
13: leleareaiinied ™ FEX10 FD 3 --> | 


Ty 1] ‘7 
[+ 


OTON O&O Ch ® WhO we 
ae 


2e Cte ee ce 


1] 
“ 


SCR #66. 
0 ( FLOATING POINT ) 
1 HEX 
2% ASCF 0 CIX | INBUF ! | AFP Fj 
3. 
at FLIT R> DUP +>RFG} 
S ! FLITERAL STATE GIF 
4 COMPILE FLIT HERE F! 6 ALLOT 
7 ENDIF; 
S$} FLOATING ( FLOAT FOLLOWING CONSTANT ) 
9 BL WORD HERE 1+ ASCF 
10 FLITERAL} IMMEDIATE 
11 (EX! FLOATING 1.2345 ) 
~ 12(OR FLOATING -1.47E-13) 
| 13 
14! FP [COMPILE] FLOATING } 
1S IMMEDIATE —--> 


SCR # 67 
QO ( FLOATING POINT ) 
1 HEX 
2: FVARIABLE 
3 <BUILDS HERE F! 6 ALLOT DOES> } 
4 
5S ’ FCONSTANT 
& <BUILDS HERE F! 6 ALLOT DOES> 


7 7 Fe; 
=: 
9; FO= OROR O=; 
10; F= F- FO= 


11:F< F- DROP DROP &0 ANDO? ; 
12 

13 

14 

15 BASE ! 35 


